﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head2()%>
<title>栏目移动管理</title></head><body><div class="main400">
<%IF KEY<>0 then
	Call Error2("你的权限不足！")
end if%>
请选择要移动到的栏目:<br/><br/>
<%
Dim id
id= request.QueryString("id")
if id="" or IsNumeric(id)=False then
	Call Error2("ID无效！")
end if

Dim ids,lxl,rs
ids= request.QueryString("ids")
if ids="" or IsNumeric(ids)=False then ids=0
lxl= request.QueryString("lx")

set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_class Where parent="&ids&" and lx=0",myconn,1,1

If Not rs.eof Then
	dim pagesize,count,page,i,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
	If rs.eof Then Exit For
%>
<a href="move.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;ids=<%=rs("classid")%>&amp;lx=<%=lxl%>">[+]</a>|<a href="movecl.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=lxl%>&amp;iid=<%=rs("classid")%>"><%=nowml(left(rs("class"),8))%></a><br/>
<%
	rs.moveNext
	Next
	w showsPage("move.asp", "id:"&id&",ids:"&ids&",lx:"&lxl, page, pageCount)
Else
	w "(没有栏目)"
end if
rs.close
set rs=nothing
%><br/>
<a href="movecl.asp?sid=<%=sid%>&amp;iid=0&amp;id=<%=id%>&amp;lx=<%=lxl%>">[移到首页]</a><br/>
----------<br/>
<a href="class.asp?sid=<%=sid%>">[栏目管理]</a><%Call rootLast2%>